Backpacker 2 (Sweden)/BackPacker 2 (Sweden) (Disc 1).7z/BackPacker 2 (Sweden) (Disc 1).bin/pc/instdata/install.dxr/Internal_421.ls

Text File | 1997-01-01 | 5.5 KB | 157 lines

on MakeFileList package
  global gFileList, gSrcPathList, gDestPathList, gDestPath, gPlatformChosen, gInternet, gDEngineP, gPrefpath
  set gFileList to []
  set gSrcPathList to []
  set gDestPathList to []
  if the machineType = 256 then
    set plattfall to gPlatformChosen
  else
    set plattfall to the platform
  end if
  case plattfall of
    "Macintosh,68k":
      append(gFileList, "INST0001")
      append(gFileList, "INST0002")
      append(gSrcPathList, the pathName)
      append(gSrcPathList, the pathName)
      append(gDestPathList, gDestPath & "BackPacker 2:")
      append(gDestPathList, gDestPath & "BackPacker 2:")
      append(gFileList, "INST0005")
      append(gSrcPathList, the pathName)
      append(gDestPathList, gDestPath & "BackPacker 2:BP_RSRC:")
      repeat with n = 17 to 28
        append(gFileList, "INST00" & n)
        append(gSrcPathList, the pathName)
        append(gDestPathList, gDestPath & "BackPacker 2:BP_RSRC:")
      end repeat
      case package of
        1:
        2:
        3:
      end case
      if gInternet then
        append(gFileList, "INSTIN01")
        append(gSrcPathList, the pathName)
        append(gDestPathList, gDestPath & "BackPacker 2:BP_RSRC:")
        repeat with n = 2 to 9
          append(gFileList, "INSTIN0" & n)
          append(gSrcPathList, the pathName)
          append(gDestPathList, gDestPath & "BackPacker 2:BP_RSRC:I_DATA01:")
        end repeat
        append(gFileList, "INSTIN10")
        append(gSrcPathList, the pathName)
        append(gDestPathList, gDestPath & "BackPacker 2:BP_RSRC:I_DATA01:.hotjava:")
        append(gFileList, "INSTIN21")
        append(gSrcPathList, the pathName)
        append(gDestPathList, gPrefpath)
        append(gFileList, "INSTIN22")
        append(gSrcPathList, the pathName)
        append(gDestPathList, gPrefpath)
      end if
    "Macintosh,PowerPC":
      append(gFileList, "INST0003")
      append(gFileList, "INST0004")
      append(gSrcPathList, the pathName)
      append(gSrcPathList, the pathName)
      append(gDestPathList, gDestPath & "BackPacker 2:")
      append(gDestPathList, gDestPath & "BackPacker 2:")
      append(gFileList, "INST0005")
      append(gSrcPathList, the pathName)
      append(gDestPathList, gDestPath & "BackPacker 2:BP_RSRC:")
      repeat with n = 17 to 28
        append(gFileList, "INST00" & n)
        append(gSrcPathList, the pathName)
        append(gDestPathList, gDestPath & "BackPacker 2:BP_RSRC:")
      end repeat
      case package of
        1:
        2:
        3:
      end case
      if gInternet then
        append(gFileList, "INSTIN01")
        append(gSrcPathList, the pathName)
        append(gDestPathList, gDestPath & "BackPacker 2:BP_RSRC:")
        repeat with n = 2 to 9
          append(gFileList, "INSTIN0" & n)
          append(gSrcPathList, the pathName)
          append(gDestPathList, gDestPath & "BackPacker 2:BP_RSRC:I_DATA01:")
        end repeat
        append(gFileList, "INSTIN10")
        append(gSrcPathList, the pathName)
        append(gDestPathList, gDestPath & "BackPacker 2:BP_RSRC:I_DATA01:.hotjava:")
        append(gFileList, "INSTIN21")
        append(gSrcPathList, the pathName)
        append(gDestPathList, gPrefpath)
        append(gFileList, "INSTIN22")
        append(gSrcPathList, the pathName)
        append(gDestPathList, gPrefpath)
      end if
    "Windows,16":
      append(gFileList, "INST0006")
      append(gFileList, "INST0007")
      append(gFileList, "INST0010")
      append(gSrcPathList, the pathName)
      append(gSrcPathList, the pathName)
      append(gSrcPathList, the pathName)
      append(gDestPathList, gDestPath)
      append(gDestPathList, gDestPath)
      append(gDestPathList, gDestPath)
      append(gFileList, "INST0028")
      append(gSrcPathList, the pathName)
      append(gDestPathList, gDestPath & "BP_RSRC\")
      repeat with n = 11 to 26
        append(gFileList, "INST00" & n)
        append(gSrcPathList, the pathName)
        append(gDestPathList, gDestPath & "BP_RSRC\")
      end repeat
      case package of
        1:
        2:
        3:
      end case
    "Windows,32":
      append(gFileList, "INST0008")
      append(gFileList, "INST0009")
      append(gFileList, "INST0010")
      append(gSrcPathList, the pathName)
      append(gSrcPathList, the pathName)
      append(gSrcPathList, the pathName)
      append(gDestPathList, gDestPath)
      append(gDestPathList, gDestPath)
      append(gDestPathList, gDestPath)
      append(gFileList, "INST0028")
      append(gSrcPathList, the pathName)
      append(gDestPathList, gDestPath & "BP_RSRC\")
      repeat with n = 11 to 26
        append(gFileList, "INST00" & n)
        append(gSrcPathList, the pathName)
        append(gDestPathList, gDestPath & "BP_RSRC\")
      end repeat
      case package of
        1:
        2:
        3:
      end case
      if gInternet then
        append(gFileList, "INSTIN01")
        append(gSrcPathList, the pathName)
        append(gDestPathList, gDestPath & "BP_RSRC\")
        repeat with n = 2 to 7
          append(gFileList, "INSTIN0" & n)
          append(gSrcPathList, the pathName)
          append(gDestPathList, gDestPath & "BP_RSRC\I_DATA01\")
        end repeat
        append(gFileList, "INSTIN11")
        append(gSrcPathList, the pathName)
        append(gDestPathList, gDestPath & "BP_RSRC\I_DATA01\")
        set gDEngineP to count(gDestPathList)
        repeat with n = 12 to 20
          append(gFileList, "INSTIN" & n)
          append(gSrcPathList, the pathName)
          append(gDestPathList, gDestPath & "BP_RSRC\I_DATA01\")
        end repeat
      end if
  end case
end